home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar / 1998 / Apr / di9804gk / mmfrmone.pas < prev    next >
Pascal/Delphi Source File  |  1997-05-30  |  735b  |  40 lines
  1. unit mmfrmone;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  7.  
  8. type
  9.   TForm1 = class(TForm)
  10.   private
  11.     { Private declarations }
  12.   protected
  13.     { Protected declarations }
  14.     procedure wmGetMinMaxInfo(var msg: Tmessage);
  15.       message wm_GetMinMaxInfo;
  16.  
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. var
  22.   Form1: TForm1;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure TForm1.wmGetMinMaxInfo(var msg: TMessage);
  29. begin
  30.   with TWMGetMinMaxInfo(msg).MinMaxInfo^ do begin
  31.     { Don't let this form get smaller than (200, 100) or
  32.       bigger than (400, 300).
  33.     }
  34.     ptMinTrackSize := point(200, 100);
  35.     ptMaxTrackSize := point(400, 300);
  36.   end;
  37. end;
  38.  
  39. end.
  40.